home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: delta / whiteline CD Series - delta.iso / progtool / modula2 / module / windowme.def < prev    next >
Text File  |  1995-11-25  |  4KB  |  53 lines
  1. (******************************************************************************)
  2. (*      This MODULE is Public Domain. Copy me like a beast!                   *)
  3. (*               Christian Ledermann                                          *)
  4. (*               Wölfelkofen 2                                                *)
  5. (*               84166 Adlkofen                                               *)
  6. (******************************************************************************)
  7. (*                                                                            *)
  8. (* Started:   20.12.92     03:54:30                                           *)
  9. (* Version:   20.01.94     04:12:54                                           *)
  10. (*                                                                            *)
  11. (******************************************************************************)
  12. (*                                                                            *)
  13. (* Diese Software ist ohne jede Garantie. Ich verspreche                      *)
  14. (* keinerlei Wartung und übernehme keine Verantwortung für Schäden die        *)
  15. (* durch die Benutzung dieses Programmes entstehen.                           *)
  16. (* Jegliche Ersatzansprüche lehne ich ab.                                     *)
  17. (*                                                                            *)
  18. (******************************************************************************)
  19. DEFINITION MODULE WindowMenue;
  20.  
  21. FROM SYSTEM IMPORT ADDRESS;
  22.  
  23. VAR MenuX,MenuY,MenuW,MenuH:INTEGER;
  24. (*********************************************************************)
  25. (* An dieser Position ist das WindowMenü installiert worden          *)
  26. (*********************************************************************)
  27.  
  28. PROCEDURE InstallMenu(WindowHandle : INTEGER; MenuTree:ADDRESS):BOOLEAN;
  29. (*********************************************************************)
  30. (* PROCEDURE um in einem (offenen) Fenster mit Handle WindowHandle   *)
  31. (* eine Menüzeile mit der ADDRESSe MenuTree zu installieren          *)
  32. (* Das Fenster muss(!) als Elemente mindestens Titel- und Infozeile  *)
  33. (* In der Infozeile wird das Menü installiert.                       *)
  34. (* Portiert von c->M2 Orginal in ST-COMPUTER 9/90                    *)
  35. (* Achtung ! Nach jedem Window-Event (MOVEen,SIZEen)muß die Menüzeile*)
  36. (* explizit wieder installiert werden, weil sonst das Menü irgendwo  *)
  37. (* bzw. genau da wo es zum ersten Male installiert wurde auftaucht   *)
  38. (* und das hat sehr seltsame Auswirkungen.                           *)
  39. (* Genauso muss der Anwender selbst überwachen das wenn ein anderes  *)
  40. (* Fenster Getopt wird, oder das Fenster geschlossen wird die        *)
  41. (* Window-Menüzeile wieder ausgeschaltet wird! Da GEM immer nur eine *)
  42. (* Menüzeile verwaltet muss bei einem Nebeneinander verschiedener    *)
  43. (* Menüzeilen je nach Bedarf umgeschaltet werden z.B durch           *)
  44. (* Mouse1Event+Mouse2Event in EventMultiple                          *)
  45. (* wobei Mouse1Event das betreten der normalen Menüzeile überwacht   *)
  46. (* und Mouse2Event überwacht bei bedarf die Windowmenüzeile -> bei   *)
  47. (* betreten von Rechteck  MenuX,MenuY,MenuW,MenuH erfolgt ein Aufruf *)
  48. (* von MenuBar(Menutree,1) oder besser von InstallMenu.              *)
  49. (* Die beiben MouseEvents können sich ja gegenseitig umschalten...   *)
  50. (*********************************************************************)
  51.  
  52. END WindowMenue.
  53.